Top 10k strings from Bar Chart (1982)(MiCROL).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 xc=origin:
   1 xc=origin+i*tick/pixel:
   1 user-specified chart
   1 t$="   This is a random bar chart"
   1 range=hi-lo:
   1 range=(msc+psc)*tick:
   1 random chart
   1 pixel=range/192
   1 p$="value for bar "+
   1 p$="title for bar chart           ":
   1 p$="number of bars":
   1 p$="name for bar "+
   1 origin-i*tick/pixel,line:
   1 origin-((origin>252
   1 needs these variables: bars=bars, g(bars)=values,      g$(bars,8)=names of bars,       t$=title for bar chart
   1 lo-tick=-msc*tick
   1 hi+tick=psc*tick
   1 g$(i)="item # "+
   1 bar chart subroutine
   1 BAR CHART 
   1 ;-msc*tick
   1 ;(p$);": ";#1
   1 ;"there must be 2 to 19 bars -    press a key to continue...":
   1 ;"STOP THE TAPE - THEN PRESS A KEY":
   1 ;"Bar chart utility"
   1 ;"  press any key to continue...":
   1 -len;psc*tick
   1 +(msc/(msc+psc))*192
   1 (psc*tick):
   1 (g(i)/pixel+.5
   1 ((lo+tick)/tick):
   1 ((hi+tick)/tick):
   1 '''"Bar Chart 
   1 ''"This program demonstrates the   bar chart utility subroutine.   This accepts up to 19 values    and draws a bar chart on the    screen. You can specify a title for the entire chart, and names for the individual bars."
   1 ''"Press 1 to set up your own chart   or 2 for a random chart         or 3 to stop..."
   1  1982 MiCROL";